home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00041_Script_~pause - play script for QT sprite 26 < prev    next >
Text File  |  1997-07-29  |  819b  |  23 lines
  1. on mousedown
  2.   puppetsprite the clickon,true
  3.   if the movietime of sprite 26 = the duration of the member of sprite 26 then    
  4.     set the movietime of sprite 26 to 0 -- kf prs 142 12/4/96
  5.   end if
  6.   if the name of cast the castnum of sprite the clickon = "PLAY.PCT" then
  7.     set the movierate of sprite 26 = 1
  8.     set the castnum of sprite the clickon = cast "PAUSE.PCT"
  9.     global endplay
  10.     set endplay = 1
  11.   else
  12.     set the castnum of sprite the clickon = cast "PLAY.PCT"
  13.     if the movierate of sprite 26 = 0 then 
  14.       set the castnum of sprite the clickon = cast "PLAY.PCT"
  15.       updatestage
  16.       set the movierate of sprite 26 to 1
  17.       set the castnum of sprite the clickon = cast "PAUSE.PCT"
  18.       updatestage
  19.     else set the movierate of sprite 26 = 0
  20.   end if
  21.   updatestage
  22. end
  23.